Packard Bell - Internet on a CD/internet on a cd.cdr/Internet/sites/HTML_1/comments.txt

Text File | 1998-07-16 | 93.8 KB | 7,189 lines

name Nik Swoboda
contact [e-mail]
overall 0
comment
This is a
multi-line comment.
.....
name hi
contact test
overall 0
comment
testing
testing
.....
name roger
contact roger@dgdgd
overall 10
comment

.....
name jmg
contact jhfgj
overall 0
comment
fg
.....
name orlando
contact sASas
overall 9
comment
sASass
.....
name hanipa
contact [e-mail]
overall 0
comment
aslsld;dffklldfjjlsddkldldjfenen
.....
name ha
contact [e-mail]
overall 1
comment
ddddddddddddddddddddddddd
.....
name ha
contact [e-mail]
overall 1
comment
ddddddddddddddddddddddddd
.....
name
contact
overall 0
comment

.....
name test
contact test
overall 1
comment
Was macht das?
.....
name sdcasdf
contact vaasdc
overall 2
comment
sdfasdf
.....
name Michael
contact cicada10
overall 6
comment

.....
name scott
contact smas
overall 5
comment
ewfdsdf
.....
name Adam Hickey
contact [e-mail]
overall 6
comment
BRING TMBG TO VANCOUVER!
.....
name helder
contact asdfklasdlf
overall 4
comment

ASDasAS
.....
name 444
contact 444
overall 0
comment

.....
name mike
contact [e-mail]
overall 6
comment
test
.....
name Micky
contact
overall 10
comment
I need a good CGI
.....
name Micky
contact g
overall 10
comment
I need a good CGI
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name cdamon
contact [e-mail]  www.computerguy.harwich.ma.us
overall 10
comment
1
.....
name Asher
contact [e-mail]
overall 2
comment
fdlgjfdgkljgf
sfdgsfdgdgfdg
fdggfdfdgdgf
fdgdfgfdg
.....
name
contact
overall 0
comment

.....
name Juca Da Silva
contact [e-mail]
overall 10
comment
Juca salfkj;l lkj
lkj

.....
name aa
contact aa
overall 0
comment

.....
name The Dude
contact [e-mail]
overall 5
comment
Rock on.
.....
name asdfas
contact [e-mail]
overall 0
comment
asdfas
.....
name David
contact [e-mail]
overall 10
comment
yah
.....
name ghgfh
contact ghgxfh
overall 5
comment

.....
name yy
contact a@b
overall 5
comment

.....
name sfsfsdfsdf
contact fsdfs
overall 0
comment
rt ryryr
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name D5133
contact [e-mail]
overall 9
comment
Hu
.....
name fred
contact [e-mail]
overall 10
comment
none
.....
name hansen
contact [e-mail]
overall 10
comment


.....
name henry
contact
overall 0
comment


.....
name temp
contact [e-mail]
overall 6
comment

.....
name nikki
contact [e-mail]
overall 6
comment

more examples needed
.....
name jimmy
contact [e-mail]
overall 2
comment
sdffdsffsdf
.....
name
contact
overall 0
comment

.....
name i
contact i
overall 4
comment
i
.....
name bryan
contact fdsaf
overall 1
comment
asdfas
.....
name xu
contact [e-mail]
overall 1
comment
cccccccccc
.....
name Mike
contact [e-mail]
overall 6
comment
hello
.....
name Elizabeth Julg
contact
overall 3
comment
djflkjdlkfjldskjf
.....
name sgann
contact gf@xgngh
overall 10
comment
tex t
.....
name
contact
overall 0
comment

.....
name safsd
contact
overall 0
comment

.....
name hh
contact e@NOWHERE
overall 4
comment

.....
name
contact
overall 4
comment

.....
name Barry Devlin
contact [e-mail]
overall 6
comment

.....
name 5
contact 5
overall 2
comment
5
.....
name Lauren King
contact [e-mail]
overall 6
comment
Hello to you all, I am testing this script.
.....
name Robert Pilz
contact [e-mail]
overall 10
comment
Testing sample program.
.....
name erg
contact 3
overall 7
comment
t4
.....
name js
contact [e-mail]
overall 0
comment
hi there
.....
name l
contact uhjhjljh
overall 7
comment
vhjlhvl,vbhju,lo v
.....
name Jim Hawkins
contact [e-mail]
overall 6
comment
nice...thanks
.....
name Me
contact [e-mail]
overall 6
comment
Test comment
.....
name michael
contact [e-mail]
overall 4
comment
Does this use METHOD = "POST"
.....
name mick
contact j588546
overall 2
comment
ghgfhghgfh
.....
name
contact
overall 0
comment

.....
name YOLAND
contact
overall 0
comment


.....
name
contact
overall 0
comment

.....
name norm miske
contact [e-mail]
overall 10
comment
testing,testing
.....
name joe
contact joe.camel.com
overall 4
comment
hidee ho neighbor
.....
name Bob Frapples
contact [e-mail]
overall 10
comment
;lksjdf;lkajsdf
asdflkjas;dfk
as;dlfkja;sldkfj
asld;fkj;laskjdf
a;sldkjf;laskdjf
asdlfkj;alksdjf
a;sdlfkj;alskdfj
.....
name d
contact d
overall 1
comment
test
.....
name don
contact [e-mail]
overall 9
comment
asdfasdfasdf
.....
name john
contact [e-mail]
overall 5
comment
oh shit
.....
name Alexander Hamburger
contact [e-mail]
overall 2
comment
What a slob

.....
name hamsterling
contact [e-mail]
overall 10
comment
Dis is kewll
.....
name Steve
contact [e-mail]
overall 5
comment
The site is neat, but the source code is a little unclear. It's hard to read in the format that it's presented in. Otherwise thanks for the resource...
.....
name mola
contact gogo pani
overall 7
comment
qwe
.....
name joke
contact [e-mail]
overall 9
comment
I love you
.....
name gremlin
contact [e-mail]
overall 5
comment
Looking forward to see more cgi examples.
.....
name michael
contact [e-mail]
overall 8
comment
just testing
.....
name dfsdf
contact sdghsdfgh
overall 7
comment
sdfgsdfgdfg
.....
name
contact
overall 0
comment

.....
name xxx
contact xxx@yyy
overall 10
comment
GREAT
.....
name cccccc
contact cccc
overall 0
comment
ccccccccccccccccccccc
.....
name
contact
overall 0
comment
ffffffffff
.....
name f
contact dffd
overall 2
comment

.....
name ttt
contact ttt
overall 0
comment
ttt
.....
name andrew
contact
overall 0
comment


.....
name andrew
contact
overall 0
comment


.....
name Woody House
contact [e-mail]
overall 8
comment
Still trying to figure out this puppy...
.....
name tewt
contact qawerq@test
overall 1
comment


.....
name tony
contact alrint
overall 10
comment
Hello world
.....
name Batavia Dunn
contact [e-mail]
overall 0
comment
does this work

.....
name
contact
overall 0
comment

.....
name Rick
contact [e-mail]
overall 8
comment
This is a comment for the test program
.....
name Ralph
contact YES YES YES
overall 4
comment
I love this man!
.....
name dipti
contact [e-mail]
overall 6
comment
testing
.....
name dipti
contact [e-mail]
overall 5
comment
# include <stdio.h>
main() { printf("content-type: text/html\n\n");
         printf("<html>");
         printf("hello world ! ");
         printf("</html>");
        }
.....
name larrym
contact [e-mail]
overall 6
comment
this is a comment
.....
name
contact
overall 5
comment

.....
name lkhl
contact lkhjkl
overall 10
comment
sorry

.....
name
contact
overall 2
comment

.....
name bob burdic
contact [e-mail]
overall 10
comment
excellent pages and programs.

.....
name Betsy
contact [e-mail]
overall 5
comment
Just checking this out
.....
name jono
contact jono
overall 10
comment
great page man!
.....
name Jim
contact [e-mail]
overall 10
comment

.....
name jim
contact [e-mail]
overall 6
comment

.....
name jaws
contact jaws@sea
overall 5
comment
it is good

.....
name
contact
overall 10
comment


.....
name fernando
contact [e-mail]
overall 0
comment


.....
name Abby
contact [e-mail]
overall 3
comment

hello
.....
name ivonne
contact [e-mail]
overall 0
comment
algo aqui
.....
name
contact
overall 0
comment


.....
name Huge
contact
overall 0
comment
Hello!
.....
name erewey
contact [e-mail]
overall 2
comment
fasdf fsdgdsad fsgf
.....
name ssf
contact sfhf
overall 6
comment
dhshdh
.....
name asj
contact sfdf
overall 0
comment
very cool
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name chong
contact aaa
overall 0
comment
asdfasdf
.....
name ACX
contact DFDF
overall 0
comment
DFDSFSDF
.....
name asfsadf
contact
overall 0
comment

.....
name
contact asdfsadf
overall 0
comment
asdfsadfsadf
.....
name Eric Gonzalez
contact [e-mail]
overall 5
comment
Testing
.....
name asd
contact sdf
overall 3
comment
sdfsdf
.....
name
contact
overall 0
comment

.....
name Jimmy
contact [e-mail]
overall 8
comment
It was very useful!!!
.....
name Jimmy
contact james
overall 0
comment
jimbob

.....
name
contact
overall 0
comment

.....
name lech
contact
overall 0
comment

.....
name
contact
overall 0
comment


.....
name sarawut
contact [e-mail]
overall 8
comment
good
.....
name Mike Christiaens
contact [e-mail]
overall 0
comment

.....
name olgam
contact olagn
overall 0
comment
HALLO
.....
name Gary Tripps
contact [e-mail]
overall 7
comment
This is just a test.
.....
name tanya
contact [e-mail]
overall 5
comment
comments
.....
name
contact
overall 2
comment

.....
name p
contact C:\1.txt
overall 0
comment
32323
.....
name j
contact jchau
overall 0
comment
hi there
.....
name
contact
overall 0
comment

.....
name gfgf
contact gfgf
overall 1
comment
trtr
.....
name whatever
contact [e-mail]
overall 7
comment
blah-blah-blah
.....
name
contact
overall 0
comment

.....
name Sachin
contact [e-mail]
overall 1
comment

.....
name fsdfdsf
contact fdsfdsf
overall 4
comment

fdsdfsdfds
.....
name gfgf
contact gfgfg
overall 4
comment
fgfgfgfg
.....
name cv
contact zxcv
overall 0
comment
zxcv
.....
name linda
contact pbd.laney.edu
overall 0
comment
i don't know why it doesnt like it when a number is typed
into the overall rating box, it keeps kicking me out to
bizarre places - wonder if it's my keyboard?
.....
name Heidi
contact [e-mail]
overall 5
comment

.....
name
contact
overall 0
comment

.....
name cody
contact [e-mail]
overall 7
comment
yhyjghj
.....
name
contact
overall 0
comment

.....
name blarg
contact [e-mail]
overall 6
comment
thats it.

.....
name sdfsdaf
contact dsfsadf
overall 10
comment
fsdfdf
.....
name mr
contact mr@com
overall 1
comment
Hey
.....
name dasf
contact asdfsdf
overall 2
comment
sdfsdf
.....
name geewha
contact [e-mail]
overall 10
comment
how many boards could the mongols hored if the mongol hoards got bored?
.....
name balk
contact [e-mail]
overall 6
comment
que bueno, a mi me gusta mucho!
.....
name gfdgdfg
contact fdgfdg
overall 3
comment
fgfdgfd
.....
name tEST
contact TEST
overall 10
comment
tESTIN
.....
name ahmad juniar
contact [e-mail]
overall 0
comment
yes i do
.....
name
contact
overall 0
comment

.....
name gile
contact [e-mail]
overall 1
comment
a
.....
name gref
contact www.don'tknow
overall 10
comment
hi
.....
name ahmad juniar
contact [e-mail]
overall 0
comment
yes i do
.....
name bablah
contact [e-mail]
overall 10
comment
blahblah
.....
name trauko
contact trauko01
overall 6
comment
akjhdkjjks cshdkjhsdas kldasjd±klasnmd±kl saldjaskld saldjklasdsajdklsadsjdkls cksjklcajscs
.....
name Steen Angelo
contact [e-mail]
overall 0
comment
Just testing
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Dubba
contact [e-mail]
overall 8
comment
Dhapar ka papad.
.....
name Frank Burden
contact [e-mail]
overall 8
comment
Testing
.....
name test
contact test
overall 1
comment
test
.....
name barnold of old
contact [e-mail]
overall 10
comment
very good!!!

.....
name Me
contact [e-mail]
overall 0
comment

.....
name me
contact fasdf
overall 3
comment
fadsf
.....
name test
contact test
overall 2
comment
test
.....
name
contact
overall 0
comment

.....
name Beth
contact kvgfxxx@xxxx
overall 6
comment
Let's see what this looks like
.....
name Romeo
contact [e-mail]
overall 5
comment
Testing
.....
name brett
contact [e-mail]
overall 5
comment
the simpsons, the addams family, south park.
.....
name gadwin
contact [e-mail]
overall 4
comment
This is coool
.....
name me
contact [e-mail]
overall 10
comment

.....
name
contact
overall 0
comment

.....
name john smith
contact [e-mail]
overall 2
comment

this is a test to see how this works
.....
name f
contact f
overall 0
comment
f
.....
name kjlkj
contact jhkjh
overall 10
comment
hgkuyg
lhu;l

oih;oih
.....
name 456
contact 4565
overall 0
comment

.....
name test
contact
overall 0
comment

.....
name abcdef
contact [e-mail]
overall 10
comment
This is a test.
.....
name sadsadsa
contact adsfdfdssd
overall 0
comment
fdsfsdfdbfgbgf
.....
name Hwang Jung-ik
contact [e-mail]
overall 0
comment

.....
name fdgvcx
contact
overall 2
comment


.....
name
contact
overall 0
comment

.....
name Snow White
contact [e-mail]
overall 3
comment

.....
name 34
contact 243
overall 1
comment
4ef
.....
name
contact
overall 0
comment

.....
name miguel
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Michael Reszler
contact [e-mail]
overall 10
comment

.....
name ken forbes
contact [e-mail]
overall 1
comment
aaa
.....
name HARUN
contact 3434QNKM
overall 4
comment

.....
name dsfsdfs
contact sfsdfsdf
overall 5
comment

.....
name MARTIN
contact [e-mail]
overall 3
comment
TEST THIS
.....
name Jarek
contact
overall 0
comment

.....
name David Reagam
contact [e-mail]
overall 7
comment

.....
name biggie d
contact bd.com
overall 3
comment

.....
name sdfsdf
contact asdf
overall 0
comment
sdfsdf
.....
name kelli
contact [e-mail]
overall 0
comment
just a test to see what happens.
.....
name
contact
overall 0
comment

.....
name fvgfdg
contact fdgfdg
overall 0
comment
fdgfdgfdg
.....
name
contact
overall 0
comment

.....
name Wes
contact [e-mail]
overall 8
comment
Hmmmmm
.....
name test
contact test@test
overall 0
comment
test
.....
name
contact
overall 0
comment

.....
name Sasa
contact sasa
overall 6
comment
Check this out.
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

dfasdfsdfd
.....
name MorganLin
contact [e-mail]
overall 8
comment
Very easy to follow
.....
name b
contact bb
overall 1
comment
heyyyyy
.....
name ggeegg
contact dsfasdf
overall 3
comment
gggggg
.....
name
contact
overall 0
comment


.....
name dfdsf
contact sdf
overall 3
comment

rewerew
.....
name Spaz
contact [e-mail]
overall 10
comment
Cgi-bins rulez!!
.....
name juuso
contact [e-mail]
overall 2
comment
moi
.....
name sdd
contact sdd
overall 7
comment
test
.....
name Daniel
contact [e-mail]
overall 10
comment
Tset
.....
name
contact
overall 0
comment

.....
name Jack Sprat
contact [e-mail]
overall 5
comment
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.....
name terri
contact terri@vci
overall 0
comment

.....
name teddy
contact [e-mail]
overall 10
comment
test
.....
name 22
contact 22
overall 0
comment
22
.....
name uytyu
contact yut
overall 1
comment
uytuy
.....
name
contact
overall 0
comment

.....
name  cbxcvb
contact xcvbxcvb
overall 5
comment
xcbxcbcxbcbx
.....
name
contact
overall 0
comment

.....
name fdghfgh
contact fghfghf
overall 0
comment
gdfhdhdh
.....
name jijmjimjim
contact a;lksdf;alkjsdf
overall 4
comment
kkkkkkkkkkkk

.....
name Paul henton
contact [e-mail]
overall 0
comment
Howdy do
.....
name pw
contact hl@ghjkjk
overall 5
comment
jjjj
.....
name
contact
overall 0
comment

.....
name kjf;j
contact asdfkalkj
overall 0
comment
asdfjlajjsljfsld
.....
name test
contact [e-mail]
overall 1
comment
test
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 4
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 7
comment

.....
name Greg
contact gygeyge
overall 6
comment
tetstetst
.....
name MANISH
contact [e-mail]
overall 4
comment

.....
name
contact [e-mail]
overall 0
comment

.....
name Caleb
contact [e-mail]
overall 10
comment
Great tutorial!
.....
name MARCELO
contact [e-mail]
overall 1
comment

.....
name Jaco
contact [e-mail]
overall 4
comment
fgdfgdfgdfg
.....
name fghfgh
contact adfasdf
overall 4
comment
sdfasdfasdf
.....
name bob
contact dfvgdfv
overall 2
comment
dfvdsfv
.....
name matt
contact [e-mail]
overall 9
comment
Hello
.....
name rula
contact [e-mail]
overall 4
comment
I am rula
.....
name Cat
contact cat@email
overall 5
comment
The quick brown fox jumped over the lazy yellow dog
.....
name hjkghjk
contact ghjkghjk
overall 8
comment
ghjkghjk
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment
klsddglsfd lkgfsdajkl gasf gklfaj klgfaskl gjklfsajg lkfajlkg fjalkgjlfkaa
fasg fakljgklfaj gklfaklg fakl  lfag aa  fag jfjgfa aa
.....
name Tony
contact
overall 8
comment


.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name trt
contact sd@fff
overall 2
comment
dsvds
.....
name Martin Ahaus
contact [e-mail]
overall 2
comment
Hallole!

Wie gehts denn?
.....
name Louw
contact
overall 5
comment
Test
.....
name wolfgang
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment

.....
name pepe
contact [e-mail]
overall 1
comment

.....
name Paul Henton
contact [e-mail]
overall 0
comment
cgi scripting really baffles me!
.....
name irene cai
contact icai
overall 0
comment
dkfjldk
.....
name kris
contact http://www.sit.wisc.edu
overall 3
comment
Hi
.....
name ataa tawia
contact [e-mail]
overall 6
comment
thi si selrkjw
.....
name a
contact [e-mail]
overall 10
comment
super!
.....
name
contact
overall 0
comment


.....
name me
contact [e-mail]
overall 5
comment

.....
name 11111
contact 111111111
overall 0
comment
1111111
1111111
.....
name xiaolan
contact [e-mail]
overall 1
comment
this is a test
.....
name xiaolan
contact [e-mail]
overall 1
comment
this is cgi  test
.....
name John Smith
contact [e-mail]
overall 10
comment
Excellent smithers!
.....
name antonio
contact
overall 1
comment


.....
name MICHAEL
contact
overall 0
comment


.....
name Orkc
contact jkjsd
overall 1
comment
hey there
.....
name
contact
overall 0
comment
dfasfasfadf
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Ron Lee
contact [e-mail]
overall 3
comment
Hello, world!
.....
name frank
contact [e-mail]
overall 9
comment


.....
name sgg
contact gdgdgd
overall 8
comment
vsvgdgdgd
.....
name test
contact [e-mail]
overall 10
comment
testit
.....
name tadfdg
contact dsfdsf
overall 1
comment

.....
name Loser
contact www.loser.net
overall 0
comment
You suck!
.....
name mim
contact [e-mail]
overall 0
comment


.....
name abra
contact abra@cadabra
overall 5
comment
oiii

.....
name Stuart
contact [e-mail]
overall 5
comment
hello
.....
name fred
contact [e-mail]
overall 4
comment
test
.....
name shame
contact sk
overall 0
comment

.....
name Rose Marie Forment
contact [e-mail]
overall 8
comment
I like it!
.....
name ed
contact eereer
overall 5
comment


.....
name
contact
overall 0
comment


.....
name
contact
overall 0
comment

.....
name hy
contact [e-mail]
overall 1
comment

.....
name Eikel
contact [e-mail]
overall 1
comment

.....
name M.Ossama
contact [e-mail]
overall 8
comment

.....
name
contact
overall 0
comment

.....
name remigjijus
contact -
overall 0
comment


.....
name sadfas
contact asdf
overall 1
comment

asdfasdf
.....
name
contact
overall 0
comment

.....
name testet
contact asdfasdf
overall 8
comment
asdafds

.....
name Test
contact none
overall 8
comment
This is a test
.....
name WEEEEEEEEEEEEEEEE
contact EEEEEEEEEEEEEE
overall 10
comment
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
.....
name fsdjhf
contact fdjhj
overall 1
comment
jdshjdhj
.....
name Ming Tang
contact here
overall 6
comment
here also
.....
name Ming Tang
contact here
overall 6
comment
here also
.....
name Hansi
contact there
overall 9
comment
Some suggestion
.....
name
contact
overall 0
comment

.....
name Joe
contact [e-mail]
overall 1
comment
What the heck is this ???
.....
name Lord
contact [e-mail]
overall 10
comment
Great, cool, eghh...
.....
name jeff
contact [e-mail]
overall 0
comment


.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment
wwwwwww
.....
name acre
contact sds
overall 9
comment
asdasda hello
.....
name Nick Richardson
contact a-nickri
overall 0
comment
testing

.....
name steph
contact [e-mail]
overall 0
comment

.....
name lmm,l.
contact m,.m,.
overall 1
comment
kl;lk;
.....
name lmm,l.
contact m,.m,.
overall 4
comment
oooooooooooooooooooooo
.....
name jghj
contact ghjgj
overall 0
comment
fhk
.....
name rtt
contact [e-mail]
overall 7
comment
i think 7 is a good number
.....
name jon
contact [e-mail]
overall 6
comment
greinvre
.....
name
contact
overall 0
comment

.....
name Abadom
contact [e-mail]
overall 8
comment
Great CGI!!!
c;-)
.....
name testing
contact 1234565
overall 4
comment
comments
.....
name gfhfgh
contact fghhgfhh
overall 3
comment
fhgfhfghfgh
.....
name
contact
overall 0
comment

.....
name fjgjhdj
contact fgjfgjgh
overall 0
comment
fjhghjgh
.....
name Kurt Knedeisen
contact [e-mail]
overall 8
comment
I hope this helps me learn something about Perl and HTML.
Thanks.
.....
name
contact
overall 0
comment

.....
name
contact
overall 1
comment

.....
name jremy
contact [e-mail]
overall 10
comment
good
.....
name mick
contact [e-mail]
overall 9
comment
here's the comment
.....
name My name
contact [e-mail]
overall 8
comment

Comment placed here
.....
name
contact
overall 0
comment

.....
name kim
contact [e-mail]
overall 10
comment
test
.....
name
contact
overall 0
comment

.....
name JOE
contact [e-mail]
overall 9
comment
BLAH BLAH BLAH
.....
name fdf
contact dff
overall 1
comment
fds
.....
name test
contact fd
overall 5
comment
dsff
.....
name xcvxcv
contact [e-mail]
overall 0
comment
x<wwx
.....
name  cv
contact g
overall 8
comment
sd
dfas
dfs
a
dfas


.....
name
contact
overall 0
comment

.....
name das
contact jy
overall 10
comment
1234
.....
name larissa
contact [e-mail]
overall 10
comment
hahaha
.....
name gfh
contact dsg
overall 0
comment
this is a test!
.....
name Aeron Winters
contact [e-mail]
overall 10
comment
cool
.....
name rich
contact [e-mail]
overall 4
comment
sdfsdfsdf
.....
name
contact
overall 2
comment

.....
name sbgf
contact bfdbs
overall 10
comment
bdfb
.....
name u
contact
overall 3
comment

.....
name utyuytu
contact uyuy
overall 4
comment
uyutyuy
uytuy
.....
name pat
contact fg
overall 10
comment
dgf
.....
name Steve Roth
contact [e-mail]
overall 10
comment
asdfdf asdf
.....
name sefwe
contact erewrw
overall 0
comment

fsdafsdf
.....
name neil
contact [e-mail]
overall 8
comment

.....
name Test
contact no mail
overall 3
comment
test


.....
name Andrew
contact lerniver
overall 0
comment
Hello
.....
name mohamed
contact [e-mail]
overall 2
comment

.....
name Leo
contact [e-mail]
overall 0
comment
No tengo ni idea para que es este formulario.
.....
name
contact
overall 0
comment

.....
name me
contact murpt
overall 0
comment

hi there
.....
name ss
contact [e-mail]
overall 0
comment
 Hi! Perl is very good! But How do I use it? Can you help me?
.....
name
contact
overall 0
comment

.....
name sakis
contact [e-mail]
overall 10
comment
Very good!!!!!!!!!!

.....
name Bill Ault
contact [e-mail]
overall 4
comment
Couldn't link to the server containing the library samples
.....
name
contact
overall 0
comment
dsfsd
.....
name dfgdry
contact sure
overall 10
comment

esrsredhfxg
.....
name dfgdry
contact sure
overall 10
comment

esrsredhfxg
.....
name
contact
overall 0
comment
hi
.....
name ale
contact
overall 0
comment
hi
.....
name carmen
contact [e-mail]
overall 8
comment

Hello.
.....
name Christophe
contact [e-mail]
overall 1
comment
zrazerzer
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Troy
contact [e-mail]
overall 10
comment
Very handy.
.....
name ali mac
contact www.amacweb.com
overall 6
comment
Hi, this is a test, yeah?
.....
name Claudia
contact [e-mail]
overall 2
comment
alskdjfasdf
.....
name Diana
contact [e-mail]
overall 6
comment
diana. lakasjifiouaspi
.....
name Diana Lomelin
contact al764473
overall 0
comment
Hola,
.....
name Paul
contact [e-mail]
overall 9
comment
Very good
.....
name
contact
overall 0
comment

.....
name test
contact test@test,net
overall 8
comment

.....
name
contact
overall 0
comment

.....
name Me
contact [e-mail]
overall 10
comment
Cool
.....
name caleb
contact [e-mail]
overall 2
comment
hello world
.....
name
contact
overall 0
comment

.....
name kurt loyd
contact [e-mail]
overall 8
comment
this is a test...
don't fucking panic...
.....
name ANthony
contact [e-mail]
overall 10
comment
f
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name hulk hogan
contact [e-mail]
overall 10
comment
Hello everybody,
This is HULK here. Thought of coming out of WWF for a while
and learning about computers. Have a kicking time.
Hulk.
.....
name Manni
contact
overall 0
comment

.....
name Hugh Wardlaw
contact [e-mail]
overall 5
comment
This email was generated by CGI on //blackcat.brynmawr.edu.cgi-bin/nik
let's see if I actually get this!!!
.....
name ga
contact foo
overall 0
comment

.....
name
contact
overall 0
comment

.....
name yy
contact yy
overall 0
comment
yyy
.....
name Linda S.
contact shelby inc
overall 4
comment
asdlkfa;lfkasmdf ;alksdfm alkdsm a;lds ka;lkfd m;lfdkm;fkla;fdlkasmf; laksdm f;lsakdm flkfdsm;ldsamkflkfdm lkfmf
as;dlfkams;lfkas;f lkaf
as;dfkl;ldkhgas;lmdf
as;dlfka;lgdnkas;dlf
a;slkgdams;ldfmkas
dfa;lsdgmka;sldfk as
;laskdmfa;lskdfm
;alskdgjasldfm alkdsfmaf
;asldkfma lkhgdaslkdfma
as;dlkmfasf
this form must handle long entry comments.

.....
name gty
contact sds@nh
overall 2
comment
sssssssssssssssssss
.....
name erger
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Annika
contact [e-mail]
overall 0
comment
Hej!
.....
name a
contact a
overall 0
comment
a
.....
name test
contact email1
overall 10
comment
test note
.....
name jose
contact [e-mail]
overall 7
comment
srfsdfsdf
khkghk
ghjk
hjk
jk
jhk
b
m
.....
name MOHAMUD
contact [e-mail]
overall 1
comment
WHAT'S UP
.....
name LUISGALLEGOS
contact lgallego&wia.sis.epn.edu.ec
overall 6
comment
Hello , how are you , I'm interested in learn about CGI .
I don't know anything about cgi's , please help me.
bye
.....
name LUISGALLEGOS
contact [e-mail]
overall 6
comment
Hello , how are you , I'm interested in learn about CGI .
I don't know anything about cgi's , please help me.
bye
.....
name
contact
overall 0
comment

.....
name Frank
contact [e-mail]
overall 1
comment

.....
name hjgghj
contact ererferf
overall 6
comment
ferferferferfer
.....
name d
contact
overall 3
comment


.....
name ddddddd
contact ddddddd
overall 3
comment
ddddddd
.....
name sdfgdsf
contact sdfgdsf
overall 4
comment

.....
name gerardo
contact [e-mail]
overall 1
comment

.....
name
contact
overall 0
comment

.....
name len
contact [e-mail]
overall 5
comment
This is a nice page
.....
name kim
contact [e-mail]
overall 8
comment
test
.....
name giovanni
contact Gipp@lfl
overall 10
comment
dfsdfsdf
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name junkim
contact [e-mail]
overall 0
comment
this is test
.....
name d
contact d
overall 0
comment
d
.....
name dan
contact [e-mail]
overall 0
comment
hi
.....
name kvr reddy
contact [e-mail]
overall 10
comment
oijugiodj;ob
lkokbo;d
;lblxb;lbkvb
lx;
.....
name kvr reddy
contact [e-mail]
overall 4
comment
oijugiodj;ob
lkokbo;d
;lblxb;lbkvb
lx;
.....
name lkj
contact lkjl
overall 5
comment
asdfa
.....
name
contact
overall 0
comment

.....
name bud ness
contact dfdf
overall 0
comment
dsfsdf
.....
name maurice
contact e
overall 0
comment

.....
name shh
contact www.shh.co
overall 7
comment
ergregregegerg
.....
name Michael Toh
contact [e-mail]
overall 9
comment

Well Done!!
.....
name
contact
overall 0
comment

.....
name Richard Schulz
contact [e-mail]
overall 10
comment

.....
name a
contact [e-mail]
overall 0
comment
jdka
.....
name uffe
contact [e-mail]
overall 2
comment

.....
name Tan Silliksaar
contact [e-mail]
overall 5
comment
Thanks
.....
name nisse
contact liyglig
overall 4
comment
oufgoyg
.....
name jeo
contact
overall 0
comment
sdasdf
.....
name Chris
contact astro@mail
overall 4
comment

Test
.....
name mickey
contact mickey@disney
overall 3
comment
this is neat, I hope

.....
name mickey
contact [e-mail]
overall 3
comment
this is neat, I hope

.....
name
contact
overall 0
comment

.....
name kim
contact [e-mail]
overall 0
comment
ttest
.....
name CC Wang
contact [e-mail]
overall 8
comment
This is a test!
.....
name Naimur Rahman
contact [e-mail]
overall 6
comment
As a beginner it gave me interesting insight to the topic
.....
name
contact
overall 0
comment

eee
.....
name test
contact test@msis
overall 6
comment
comments here
.....
name
contact
overall 0
comment

.....
name dennis
contact none
overall 4
comment
asdasfasfasfasf
.....
name trial
contact trial@home
overall 5
comment
this is a test.
.....
name olivier
contact [e-mail]
overall 6
comment
pas grand chose
.....
name ling
contact [e-mail]
overall 0
comment

.....
name tytryt
contact fdggdfg
overall 4
comment
fgdfgd
.....
name my name
contact kdkdkd@dkdkd
overall 3
comment
bla bla bla
.....
name Nick
contact [e-mail]
overall 10
comment
uhhh...
.....
name Jeff
contact [e-mail]
overall 10
comment
Hello World!
.....
name lien
contact [e-mail]
overall 0
comment
test
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name zezaezaeza
contact azeazeaze
overall 3
comment
azeazeaze
.....
name paddy
contact myofb
overall 10
comment

.....
name
contact
overall 0
comment

.....
name andrea
contact [e-mail]
overall 2
comment

.....
name a
contact s
overall 0
comment
a
.....
name Richard SChulz
contact askjdrtglaksjg
overall 8
comment
asdfasdfasdfasdf
.....
name ed
contact ed
overall 8
comment
ed
.....
name
contact
overall 4
comment
llllllllll
.....
name
contact
overall 0
comment

.....
name bertrand
contact [e-mail]
overall 7
comment

.....
name Perico
contact [e-mail]
overall 1
comment
That's a probe
.....
name bob
contact [e-mail]
overall 1
comment
Test

.....
name
contact
overall 0
comment

.....
name lori
contact [e-mail]
overall 10
comment

.....
name PAtrick
contact [e-mail]
overall 9
comment
asdfasdfasdf
.....
name uogupg
contact olguo
overall 0
comment
hiphp;i
.....
name
contact
overall 0
comment


.....
name Thomas P Carlsson
contact [e-mail]
overall 5
comment

.....
name blah
contact [e-mail]
overall 10
comment
let's see it...
.....
name hgjhgj
contact hgjhgj
overall 5
comment

.....
name punithavathi
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment

.....
name hjk
contact hjkhjk
overall 0
comment
fhgk
.....
name jojo
contact [e-mail]
overall 5
comment
ang galing naman
.....
name Joe Flores
contact [e-mail]
overall 2
comment


.....
name Bobby
contact [e-mail]
overall 10
comment

.....
name g
contact g
overall 2
comment
gggggggggggg
.....
name Brian Lafferry
contact [e-mail]
overall 8
comment
Do you have, or plan, any Visual J++ or Visual Basic examples?
.....
name
contact
overall 0
comment

.....
name chadwick
contact [e-mail]
overall 9
comment
Here it is-  These are my comments
.....
name
contact
overall 0
comment

.....
name tesrter
contact [e-mail]
overall 8
comment
ejfelflsdvmkgkgbn

.....
name hi there
contact [e-mail]
overall 6
comment
Him for test !
jjkf
QWE1234.

.....
name
contact
overall 0
comment

.....
name Hithereabc
contact [e-mail]
overall 0
comment
I am looking here.
.....
name
contact
overall 9
comment

.....
name surender
contact [e-mail]
overall 10
comment

good keep it up

.....
name Me
contact yes
overall 0
comment
try
.....
name Jeffrey
contact http://www.hotmail.com
overall 10
comment
Jeffrey is me name :)
.....
name Ray
contact
overall 0
comment
This seems pretty good
.....
name 123
contact
overall 0
comment
1232
.....
name rtudr
contact dfudrty
overall 2
comment

dftyuygu
.....
name murk
contact [e-mail]
overall 3
comment
What what.
.....
name adfg
contact agf
overall 2
comment
asdga
.....
name
contact
overall 0
comment

.....
name ped
contact yaft
overall 0
comment
fdgrewsdf
.....
name
contact
overall 10
comment

.....
name
contact
overall 0
comment



.....
name asdf
contact asdf
overall 3
comment
sdafasfdafsa
.....
name asdfad
contact [e-mail]
overall 4
comment
asdfasdfadf
.....
name
contact
overall 0
comment

.....
name aaaaaaa
contact ddddddd
overall 0
comment
ddddddd
.....
name Test
contact bababa
overall 1
comment
Testing form

.....
name
contact
overall 0
comment

.....
name fgfg
contact wetwerwe
overall 9
comment
test
.....
name sadafsdf
contact asdfasdf
overall 4
comment
asdfasdf
.....
name
contact
overall 0
comment

.....
name asdfasdf
contact asdfasdf
overall 5
comment
asdfasdfads
.....
name kumar
contact [e-mail]
overall 1
comment

.....
name
contact
overall 0
comment

.....
name Aaron
contact [e-mail]
overall 8
comment
Very informative.  Quite impressive.
.....
name jjj
contact jjjj
overall 4
comment
kfpsk[okgb
.....
name Johnny
contact [e-mail]
overall 10
comment

Don't eat the yellow snow
.....
name scot demarco
contact [e-mail]
overall 7
comment
Overall I like the use you apply to CGI.
.....
name
contact
overall 0
comment

.....
name pig
contact
overall 0
comment

pig is good!
.....
name
contact
overall 0
comment


.....
name Peter
contact klef
overall 2
comment
dd
.....
name xavier
contact anonymous
overall 0
comment
GAlicia
.....
name Stanley
contact [e-mail]
overall 5
comment
none
.....
name
contact
overall 0
comment


.....
name aagagga
contact
overall 0
comment


.....
name aagagga
contact
overall 0
comment


.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name John Smith
contact [e-mail]
overall 10
comment

Hello I am testing the site.
.....
name Gary
contact [e-mail]
overall 10
comment
This is just a test to see how the cgi script runs, I do hope that I can learn something from this test.
.....
name */*
contact
overall 0
comment

.....
name trtr
contact rtr
overall 10
comment
rtrtr
.....
name asdf
contact afd
overall 0
comment
adf
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name fred
contact fred@fake
overall 10
comment
awesome
.....
name abc
contact a@b.c
overall 7
comment
text
.....
name ╝╒┴ñ▒╘
contact [e-mail]
overall 2
comment
Thank you!
.....
name Anas
contact [e-mail]
overall 4
comment
Ed7ashooooooooooooo
.....
name hej
contact hej
overall 0
comment
hej
.....
name
contact
overall 0
comment

.....
name J
contact
overall 2
comment
Hi
.....
name
contact
overall 0
comment

.....
name test
contact rrr
overall 3
comment

.....
name kjjhg
contact hdfghfd
overall 10
comment

.....
name xavier luiz
contact [e-mail]
overall 5
comment
hello world!
.....
name John Doe
contact [e-mail]
overall 10
comment
Aaargh! Not again............
.....
name Vun Loon
contact adf
overall 0
comment
fdkfjl
.....
name robert
contact here@now
overall 10
comment


.....
name mwageni
contact [e-mail]
overall 0
comment
Please i dont know any thing how to use rhese programs?!!!!
.....
name john
contact jdkja@jdksjds
overall 2
comment

qerqwer    wr
.....
name Allan
contact anpcc.com.au
overall 9
comment

Let's see it now!
.....
name aaa
contact aaaaaaaaaaaaaaaaa
overall 2
comment
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
.....
name sssss
contact [e-mail]
overall 3
comment

.....
name Ann Magnuson
contact [e-mail]
overall 10
comment
This is a test
.....
name 44
contact 44
overall 1
comment
345465








































































































































































678















































89
.....
name pippolo
contact qqqq
overall 0
comment
aaa bbb ccc ddd
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name john
contact [e-mail]
overall 3
comment


.....
name
contact
overall 6
comment
fda ater
.....
name mohd
contact
overall 2
comment

hai...hai
.....
name hans
contact [e-mail]
overall 0
comment
gffdg
.....
name hb
contact sdgh
overall 4
comment
sdh
.....
name
contact
overall 8
comment

.....
name jawrneh
contact
overall 1
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Bryon
contact [e-mail]
overall 6
comment

Can you collect input from a "form" using submit and collect the results directly into a flat data file, without invoking a mail interface, thus on submit, the form input is directed to a local file on the intranet server for processing.
The idea I have in mind is for marking or evaluating input against known corect answers and returning a score and advice pointers to a related knowledge page
Many Thanks

Bryon Dun
.....
name jjj
contact aaaaddddd  ddd ddd ddd ddd ddd
overall 5
comment

q ee rrrrr ttt yyyyyy uuu ui iiii oo




.....
name adsf
contact asdf
overall 3
comment
adfs
.....
name Chuck
contact sci3320
overall 4
comment

.....
name sdsds
contact
overall 0
comment

.....
name Monica
contact [e-mail]
overall 1
comment
Hola minoca esta es una prueba,
.....
name shawn
contact dolphin
overall 7
comment
hmmmm
.....
name shawn
contact dolphin
overall 0
comment
testing<br>testing
.....
name xx
contact [e-mail]
overall 0
comment
asjflksf
.....
name LISANDRA
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Mina Atanacio
contact [e-mail]
overall 5
comment
Hello!
.....
name hkjhjkhkj
contact hjkhkjhkj
overall 1
comment
here

.....
name hkjhjkhkj
contact hjkhkjhkj
overall 1
comment
here

.....
name John
contact a@b
overall 1
comment


.....
name yu
contact yuiy
overall 0
comment
yuity
.....
name rishi
contact [e-mail]
overall 4
comment
This is a test message
.....
name big dave
contact jack shit
overall 10
comment
just a test
.....
name Karen N. Walton
contact [e-mail]
overall 0
comment

.....
name fff
contact fff
overall 2
comment
fffffffffffffffff
.....
name ert
contact ert
overall 2
comment


.....
name toto
contact rutu
overall 2
comment


.....
name James
contact http://xxx.xxx
overall 5
comment

How's life???
.....
name brett
contact [e-mail]
overall 10
comment
dsf
.....
name kgb
contact 123456@12345
overall 10
comment
good!
.....
name 1111
contact 222222
overall 2
comment
3333333
.....
name Da Funk
contact Da [e-mail]
overall 0
comment
Hmm, Not sure what this is for, nevermind, didn't quite pick that up from the code. Oh well, I'm a bit sick at the moment. Sorry.
.....
name sally
contact mail
overall 7
comment
Thanks dude.
.....
name
contact
overall 2
comment

.....
name mike
contact [e-mail]
overall 1
comment

.....
name test
contact [e-mail]
overall 1
comment
test comment
.....
name BILLY JACK
contact [e-mail]
overall 0
comment


.....
name helen
contact [e-mail]
overall 8
comment
I like the homepage
.....
name kara davis
contact page1
overall 10
comment
dsfadsfdsf
.....
name Nik Swoboda
contact [e-mail]
overall 0
comment

This is a test.
.....
name Jon Ran
contact [e-mail]
overall 1
comment

This is a test.
.....
name Jon Ran
contact [e-mail]
overall 1
comment

This is a test.
.....
name Nik Swoboda
contact [e-mail]
overall 0
comment

This is a test.
.....
name Mary Harvey
contact [e-mail]
overall 7
comment
Will carriage returns and
extra spaces be preserved in
    my commen?
.....
name Sameer Kalbag
contact abcdefg
overall 0
comment

.....
name
contact
overall 0
comment


.....
name micheal chang
contact [e-mail]
overall 0
comment
this a test
.....
name P
contact test@aol
overall 3
comment


.....
name
contact
overall 0
comment

.....
name ddddd
contact dddd
overall 0
comment
dddddd
.....
name vinayak
contact [e-mail]
overall 10
comment
He is the best software engineer I have come across in my entire
career of 20 years in the IT industry
.....
name dsf
contact dgsdgfd
overall 3
comment

fdgfgsfdgb fdsfgd s┤τglgyrh
.....
name dsfg
contact dfgegdf
overall 0
comment
sdfgsdfgsdf
.....
name hhl
contact [e-mail]
overall 6
comment

.....
name
contact
overall 0
comment

.....
name alfredo
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment

.....
name hli
contact [e-mail]
overall 10
comment
Have fun
.....
name
contact
overall 0
comment

.....
name hli
contact sh
overall 10
comment
sdasfas
.....
name Me
contact [e-mail]
overall 4
comment
Testing
.....
name
contact
overall 0
comment

.....
name ALF
contact A
overall 8
comment
SDAFDFSA
.....
name yang c. chen
contact ycc
overall 1
comment
This is a test.
.....
name mark
contact
overall 7
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment
#!/usr/local/bin/perl
# Requires Perl 5.
#
# music-collection-processor --- the new music collection reading system
#
# 19 DEC 1995 --- fixed some bugs involving things that this script forgot to
#                 check.  Using exists instead of defined for hashes.  Also,
#                 `->' is optional between brackets (`[]' and `{}') subscripts
#                 so I shrank this script down by a few bytes in order to try
#                 to make it fit more nicely in eighty columns.
#
# 22 DEC 1995 --- now writes HTML/2.0-compliant versions of the songlist
#                 as well as the ones that do tables.
#
# 28 DEC 1996 --- generalized
#
# 14 FEB 1998 --- year of release added
#
#                 tables version of sorted-by-artist list now has canonical
#                 artist names on left-hand side of a table and all their
#                 releases on right-hand side.
#
# SOON SOON!! --- make artists hyperlinks to some sites.  Use a <WWW> section.
#
#                 Research artists that are in collection.  Find (a) official
#                 sites, (b) Yahoo! indexes, etc.

###############################################################################

$music_collection_home = '/home/dsembr01/music-collection';
# $music_collection_home = '/home/dsembr01/music/collection';

# AN IMPROVEMENT OVER THE PREVIOUS MUSIC-COLLECTION SYSTEM

# The format of the files which this program reads is more generic and much
# cleaner and extensible.  The parsing engine (which consists of the parse
# subroutine as well as subroutines referenced by the values of the hash
# %line_parse) is also more general; any details regarding the extraction of
# information pertinent to music collections (song listings, artists, etc.) [or
# other things which this engine might be used for] are left up to the
# subroutines referenced by $line_parse{"<special-block-type>"} for any
# <special-block-type> used in special cases like my music collection, or to
# any routines which actually traverse the data structures generated by the
# parsing engine.

# Then again, I could probably write up a generic data structure traversal
# mechanism that is extensible for special cases.

# FORMAT OF THE FILES.

# A block in the data file begins with a line containing the <blocktype> tag
# (replace the string `blocktype' with... whatever...) and ends with a line
# containing the matching </blocktype> tag.  It can have name--value pairs or
# blocks inside of it.

# A name--value pair is a line which consists of a name followed by `:' and
# then the value.

# FORMAT OF THE DATA STRUCTURE.

# The data structure for a block is a reference to an array of two elements.
# The first element is a reference to the hash of name--value pairs.  The
# second element is a reference to a hash whose key is a blocktype and whose
# value is a reference to a list of references to data structures of the
# sub-blocks of that type which are included in the block.

###############################################################################

$generateTeX = 0;

$table_opts = 'BORDER=0 CELLPADDING=0 CELLSPACING=0';

use English;
use strict 'subs';
use Getopt::Mixed;

@options = qw(
              t tex>t TeX>t generate-tex>t generate-TeX>t
             );
Getopt::Mixed::getOptions(@options);

$generateTeX = 1; # if $opt_t;

$OUTPUT_AUTOFLUSH = 0;

# I feel fully justified in doing this.
sub parse; sub error; sub warning; sub readline; sub print_block;
sub print_open; sub print_close; sub print_stuff; sub print_data;
sub traverse_tree; sub translate; sub is_code_ref; sub date_conv;

$date_acquired_warnings = 1; $verbose = 1; $counting = 1; $warnings = 1;

%month = qw(
        jan 1 feb 2 mar 3 apr 4 may 5 jun 6
        jul 7 aug 8 sep 9 oct 10 nov 11 dec 12
        );

@month = qw(
        January February March April May June
        July August September October November December
        );

$nobr_unsorted = 0;
$nobr_sorted = 0;

###############################################################################

# $line_parse{"<special-block-type>"} is a reference to a subroutine used by
# the parse subroutine (which is the main part of what I call the ``parsing
# engine'') and also become a part of this parsing engine.

# Declaring $line_parse{"<special-block-type>"} as a reference to a subroutine
# will turn off comment and name--value parsing for that type of block.  Types
# of blocks affected by this subroutine are called ``special block types''; and
# members of these classes are called ``special blocks''.

# It also turns off the ability to have blocks inside these special blocks.
# And since name--value and sub-block parsing are turned off, the data
# structure for the special block now becomes a reference to a list of (scalars
# returned by this routine).  The scalars are usually references to
# hashes/lists/whatever, but they don't really have to be.  If the line of text
# inside the special block is to be ignored, i.e., no data is to be extracted
# from that line of text, then this routine should return the undefined value;
# the parse subroutine will check for that.

$line_parse{"SONGS"} = sub {
    my ($number,$time,$song);
    if ( not /^(.*?)\.\s*/ ) {
    warning "line ignored inside <$scope> special block: $_" if $warnings;
    return undef;
    }
    $number = $1; $_ = $';
    if ( /\s*\{([^\}]*)\}$/ ) {
    $time = $1;
    $_ = $`;
    }
    $song = [$number,$_];
    push(@$song,$time) if $time ne '';
    return $song;
};

$line_parse{"ALIASES"} = sub {
    my @list;
    while ( not /^$/ ) {
    if ( /^(\[)(.*?)\]\s*/ or /^(\()(.*?)\)\s*/ or /^(\<)(.*?)\>\s*/ or
         /^(\{)(.*?)\}\s*/ or /^(\`)(.*?)\'\s*/ or /^([\"\'])(.*?)\1\s*/ ) {
        push(@list,$2);
        $_ = $';
    } elsif ( /^(\S+)\s*/ ) {
        push(@list,$1);
        $_ = $';
    } else {
        warning "not a valid alias line" if $warnings;
        return undef;
    }
    }
    if (@list) {
    my $canonical = shift @list;
    foreach $alias (@list) { $alias{$alias} = $canonical }
    } else {
    warning "not a valid alias line" if $warnings;
    return undef;
    }
    return undef;
};

my $www_artist = '-';
$line_parse{"WWW"} = sub {
    my @list;
    while ( not /^$/ ) {
    if ( /^\s*(\[)(.*?)\]\s*/ or /^\s*(\()(.*?)\)\s*/ or /^\s*(\<)(.*?)\>\s*/ or
         /^\s*(\{)(.*?)\}\s*/ or /^\s*(\`)(.*?)\'\s*/ or /^\s*([\"\'])(.*?)\1\s*/ ) {
        push(@list,$2);
        $_ = $';
    } elsif ( /^(\S+)\s*/ ) {
        push(@list,$1);
        $_ = $';
    } else {
        warning "not a valid alias line" if $warnings;
        return undef;
    }
    }

    if (@list) {
    my $a = shift @list;
    $www_artist = $a if $a ne '-';
    if ($www_artist ne '-') {
        my $type = shift @list;
        foreach $url (@list) {
        if (exists $www->{$www_artist}->{$type}) {
            push(@{$www->{$www_artist}->{$type}},$url);
        } else {
            $www->{$www_artist}->{$type} = [$url];
        }
        }
    }
    } else {
    warning "not a valid alias line" if $warnings;
    return undef;
    }
    return undef;
};

$line_parse{"TRANSLATIONS"} = sub {
    my @list;
    while ($_ ne "") {
    if ( /^()(\\.*?\\)\s*/ or /^(\[)(.*?)\]\s*/ or /^(\()(.*?)\)\s*/ or
         /^(\<)(.*?)\>\s*/ or /^(\{)(.*?)\}\s*/ or /^(\`)(.*?)\'\s*/ or
          /^([\"\'])(.*?)\1\s*/ or /^()(\S+)\s*/ ) {
        push (@list,$2);
        $_ = $';
        if ( /^(\S+)\s*/ ) {
        push (@list,$1);
        $_ = $';
        } else {
        last;
        }
    } else {
        warning "not a valid translation line" if $warnings;
        return undef;
    }
    }
    if (@list) {
    my $source = shift @list;
    push (@translation_strings,$source);
    while (@list) {
        my ($lang,$text);
        $lang = shift @list;
        last unless $text = shift @list;
        $translate{$lang}{$source} = $text;
        print "TRANSLATE --- $lang $source -> $text\n";
    }
    } else {
    warning "not a valid translation line" if $warnings;
    return undef;
    }
};

# For special block types, setting $no_data_tree{"<special-block-type>"}
# turns off genering any sort of data in the block tree for any such blocks.

$no_data_tree{"ALIASES"} = 1;
$no_data_tree{"TRANSLATIONS"} = 1;
$no_data_tree{"WWW"} = 1;

# Setting $no_comments{"<special-block-type>"} turns off the parsing of
# comments in any block of the <special-block-type>.

# Defining $child{<parent>}{<child>} allows a block of type <child> to be
# nested inside a block of type <parent> (or the global block if <parent> is
# the empty string).

foreach (split(' ',<<'# ---END---')) { $child{uc($`)}{uc($')} = 1 if /\//; }
# /ALIASES
# /TRANSLATIONS
# /WWW
# /OWNER
# /DEFAULTS
# /ENTRY
# ENTRY/SONGS
# ENTRY/SIDE
# ENTRY/ITEM
# ITEM/SIDE
# ITEM/SONGS
# SIDE/SONGS
# ---END---

###############################################################################

### THE MAIN PROGRAM

warn "Reading and parsing data file...\n" if $verbose;
$data = []; parse($data);
$defaults = $data->[1]{"DEFAULTS"}[0][0]; # not used yet

# Add entry numbers to each entry...

warn "Generating entry numbers...\n" if $verbose;
$count = $entry = 0;
traverse_tree($data,
          'begin ENTRY',sub {
          # fill in any blanks...
          $a->{'Entry Number'} = ++$entry
              if not exists $a->{'Entry Number'};
          print STDERR "  ",++$count," entries...",((-t)?" \r":"\n")
              if $counting;
          },
          'end ENTRY',sub {
          if (not exists $a->{'Date Acquired'}) {
              warning "No date acquired for entry number ".
              $a->{'Entry Number'} if $date_acquired_warnings;
              # do any items have that field set?
              if (exists $b->{'ITEM'}) {
              my $items = $b->{'ITEM'};
              if (grep(exists($_->[0]{'Date Acquired'}),@$items)) {
                  $a->{'printDate'} =
                  join(',',reverse sort
                       map(date_conv($_->[0]{'Date Acquired'}),
                       @$items));
              } else {
                  $a->{'printDate'} = date_conv('');
              }
              } else {
              $a->{'printDate'} = date_conv('');
              }
          } else {
              $a->{'printDate'} = date_conv($a->{'Date Acquired'});
          }
          }
          );

warn "Generating strings for alphabetizing and printing...\n" if $verbose;
$entry = 0;
traverse_tree($data,
          'begin ENTRY',sub {
          print STDERR "  ",++$entry," entries...",((-t)?" \r":"\n")
              if $counting;
          if ($a->{'Artist'} ne '') {
              my $sortArtist = $a->{'Artist'};
              my $printArtist = $a->{'Artist'};
              while ( exists $alias{$sortArtist} ) {
              $sortArtist = $alias{$sortArtist};
              }
              my $sortPrintArtist = $sortArtist;
              $sortArtist      =~ s/\\\\(.*?)\\\\(.*?)\\\\/$2, $1/g;
              $sortPrintArtist =~ s/\\\\(.*?)\\\\(.*?)\\\\/$1 $2/g;
              $printArtist     =~ s/\\\\(.*?)\\\\(.*?)\\\\/$1 $2/g;
              $sortArtist = translate("Plain",$sortArtist);
              $TeXArtist = translate("TeX",$printArtist)
              if $generateTeX;
              $printArtist = translate("HTML",$printArtist);
              my $textArtist = translate("Plain",$printArtist);
              $sortPrintArtist = translate("HTML",$sortPrintArtist);
              $a->{'sortArtist'} = $sortArtist;
              $a->{'sortPrintArtist'} = $sortPrintArtist;
              $a->{'printArtist'} = $printArtist;
              $a->{'textArtist'} = $textArtist;
              $a->{'TeXArtist'} = $TeXArtist
              if $generateTeX;
          }
          if ($a->{'Title'} ne '') {
              my $sortTitle = $a->{'Title'};
              my $printTitle = $a->{'Title'};
              $sortTitle =~ s/\\\\(.*?)\\\\(.*?)\\\\/$2, $1/g;
              $printTitle =~ s/\\\\(.*?)\\\\(.*?)\\\\/$1 $2/g;
              $sortTitle = translate("Plain",$sortTitle);
              $TeXTitle = translate("TeX",$printTitle)
              if $generateTeX;
              $printTitle = translate("HTML",$printTitle);
              my $textTitle = translate("Plain",$printTitle);
              $a->{'sortTitle'} = $sortTitle;
              $a->{'printTitle'} = $printTitle;
              $a->{'textTitle'} = $textTitle;
              $a->{'TeXTitle'} = $TeXTitle
              if $generateTeX;
          }
          },
          'foreach SONGS',sub {
          $a->[3] = translate("HTML",$a->[1]) if $a->[1];
          $a->[4] = translate("TeX",$a->[1])  if $a->[1]
              and $generateTeX;
          },
          );
print STDERR "\n" if $counting;

@{$data->[1]{"REVERSE_ENTRY"}} = reverse @{$data->[1]{"ENTRY"}};

warn "Writing unsorted list and entries...\n";

open(LIST_TABLE,">unsorted-table.html");
open(LIST_NOTABLE,">unsorted-notable.html");
open(LIST_TEX,">entries/unsorted-entries.tex")
    if $generateTeX;

print LIST_TABLE "<ul>\n",($nobr_unsorted?"<nobr>\n":"");
print LIST_NOTABLE "<ul>\n",($nobr_unsorted?"<nobr>\n":"");

$entry = 0;

$last_printdate = '';
$printdate = '';

traverse_tree($data,
          'begin REVERSE_ENTRY',sub {
          print STDERR "  ",++$entry," entries...",((-t)?" \r":"\n")
              if $counting;

          my $number   = $a->{"Entry Number"};
          my $artist   = $a->{"printArtist"};
          my $title    = $a->{"printTitle"};
          my $TeXartist;
          my $TeXtitle;
          if ( $generateTeX ) {
              $TeXartist = $a->{"TeXArtist"};
              $TeXtitle  = $a->{"TeXTitle"};
          }
          my $released = $a->{"Date Released"};
          my $label    = $a->{"Recording Label"};
          my $catalog  = $a->{"Catalog Number"};
          my $time     = $a->{"Total Time"};
          my $format   = $a->{"Format"};
          $format      = lc($format) if $format ne '';
          my $promo    = $a->{"Promotional Copy"};
          my $imported = $a->{"Imported From"};
          my $length   = lc($a->{"Length"});
          my $items    = 1 + $#{$b->{"ITEM"}} if exists $b->{'ITEM'};
          my $date     = $a->{"Date Acquired"};
          my $special  = $a->{"Special"};

          my $printNotes;
          $printNotes .= " $items"     if $items > 1;
          $printNotes .= " $format"    if $format ne '';
          $printNotes .= " $length"    if $length ne '';
          $printNotes .= " item"       if $items > 1
              and ($format.$length) eq '';
          $printNotes .= 's'           if $items > 1;
          $printNotes .= " $special"   if $special ne '';
          $printNotes =~ s/^ / \[/;
          $printNotes .= ']'           if $printNotes ne '';
          $printNotes .= " [promo]"    if $promo =~ /^y/i;
          $printNotes .= " [import]"   if $imported ne '';

          $a->{"printNotes"} = $printNotes;

          open(ENTRY_TABLE,">entries/$number-table.html");
          open(ENTRY_NOTABLE,">entries/$number-notable.html");
          open(ENTRY_TEX,">entries/$number.tex")
              if $generateTeX;

          {
              my $artist = $a->{"textArtist"};
              my $title = $a->{"textTitle"};

              print ENTRY_TABLE
              "<html><head><title>$artist: ",
              "``$title''</title></head><body>\n";
              print ENTRY_NOTABLE
              "<html><head><title>$artist: ",
              "``$title''</title></head><body>\n";

              print ENTRY_TABLE
              "If your browser does not support HTML tables, ",
              "then you might wish to\n",
              "<a href=\"$number-notable.html\">view the ",
              "version of this entry\n",
              "that doesn\'t use them</a>.<hr>\n";
              print ENTRY_NOTABLE
              "If your browser supports HTML tables, ",
              "then you might wish to\n",
              "<a href=\"$number-table.html\">view the ",
              "version of this entry\n",
              "that takes advantage of that feature</a>.<hr>\n";

          }

          $printdate = $a->{'printDate'};
          if ( $printdate ne $last_printdate ) {
              if ( $last_printdate ne '' ) {
              print LIST_TABLE "</ul>\n";
              print LIST_NOTABLE "</ul>\n";
              }
              print LIST_TABLE "<li>$printdate<ul>\n";
              print LIST_NOTABLE "<li>$printdate<ul>\n";
          }

          my $year     = $a->{"Date Released"};
          if ( $year =~ /(\d{4})/ ) {
              $year = " ($1)";
          } else {
              $year = '';
          }

          print LIST_TABLE
              "<li><b>$artist</b>: ",
              "<a href=\"entries/$number-table.html\">",
              "<cite>$title</cite>$year</a>",
              $a->{'printNotes'},"\n";
          print LIST_NOTABLE
              "<li><b>$artist</b>: ",
              "<a href=\"entries/$number-notable.html\">",
              "<cite>$title</cite>$year</a>",
              $a->{"printNotes"},"\n";

          $last_printdate = $printdate;

          print ENTRY_TABLE
              "<b>$artist</b><br><cite>$title</cite>\n";
          print ENTRY_NOTABLE
              "<b>$artist</b><br><cite>$title</cite>\n";

          print ENTRY_TEX
              "\\Entry\n",
              "\\BeginHeading\n",
              "\\ArtistTitle{$TeXartist}{$TeXtitle}{$number}\n"
              if $generateTeX;
          print LIST_TEX
              "\\input $music_collection_home/entries/$number\n"
              if $generateTeX;

          if ($released ne '') {
              print ENTRY_TABLE   "<br>(released $released)";
              print ENTRY_NOTABLE "<br>(released $released)";
              print ENTRY_TEX     "\\Released{$released}\n"
              if $generateTeX;
          }
          print ENTRY_TABLE   "<br>\n";
          print ENTRY_NOTABLE "<br>\n";
          print ENTRY_TEX     "\\EndHeading\n"
              if $generateTeX;

          foreach $key ('Recording Label','Catalog Number',
                'Total Time','Date Acquired') {
              if ($a->{$key} ne '') {
              print ENTRY_TABLE   "<br>$key: ",$a->{$key},"\n";
              print ENTRY_NOTABLE "<br>$key: ",$a->{$key},"\n";
#              print ENTRY_TEX     "\\Data{$key}{$a->{$key}}\n"
#                             if $generateTeX;
              }
          }
          print ENTRY_TABLE   "<br>\n";
          print ENTRY_NOTABLE "<br>\n";
          print ENTRY_TEX     "\n"
              if $generateTeX;

          foreach $key ('Length','Recording Format','Format',
                'Promotional Copy','Promotional',
                'Imported From','Imported') {
              if ($a->{$key} ne '') {
              print ENTRY_TABLE   "<br>$key: ",$a->{$key},"\n";
              print ENTRY_NOTABLE "<br>$key: ",$a->{$key},"\n";
#              print ENTRY_TEX     "\\Data{$key}{$a->{$key}}\n"
#                             if $generateTeX;
              }
          }

          print ENTRY_TABLE   "<hr>\n";
          print ENTRY_NOTABLE "<hr>\n";
          print ENTRY_TEX     "\n"
              if $generateTeX;
          },

          'begin ITEM',sub {
          my $item_number = $a->{"Item Number"} || $a->{"Number"};
          my $time        = $a->{"Total Time"};
          my $date        = $a->{"Date Acquired"};

          print ENTRY_TABLE
              "<h2>",($item_number ? $item_number : "Item"),
              ($time ? " ($time)" : ""),"</h2>\n";
          print ENTRY_NOTABLE
              "<h2>",($item_number ? $item_number : "Item"),
              ($time ? " ($time)" : ""),"</h2>\n";
          print ENTRY_TEX
              "\\Item{$item_number}{$time}\n"
              if $generateTeX;

          my $artist      = $a->{"printArtist"};
          my $title       = $a->{"printTitle"};

          my $TeXartist      = $a->{"TeXArtist"};
          my $TeXtitle       = $a->{"TeXTitle"};

          if ($artist ne '') {
              print ENTRY_TABLE   "Artist: <b>$artist</b><br>\n";
              print ENTRY_NOTABLE "Artist: <b>$artist</b><br>\n";
              print ENTRY_TEX     "\\ItemArtist{$TeXartist}\n"
              if $generateTeX;
          }
          if ($title ne '') {
              print ENTRY_TABLE   "Title: <cite>$title</cite><br>\n";
              print ENTRY_NOTABLE "Title: <cite>$title</cite><br>\n";
              print ENTRY_TEX     "\\ItemTitle{$TeXtitle}\n"
              if $generateTeX;
          }
          if ($date ne '') {
              print ENTRY_TABLE   "Date Acquired: $date<br>\n";
              print ENTRY_NOTABLE "Date Acquired: $date<br>\n";
              print ENTRY_TEX     "\\ItemDateAcquired{$date}\n"
              if $generateTeX;
          }
          if (($artist.$title.$date) ne '') {
              print ENTRY_TABLE   "<p>";
              print ENTRY_NOTABLE "<p>";
              print ENTRY_TEX     "\n"
              if $generateTeX;
          }
          },

          'begin SIDE',sub {
          my $side_number = $a->{"Side Number"};
          my $time        = $a->{"Total Time"};
          my $date        = $a->{"Date Acquired"};

          print ENTRY_TABLE
              "<h3>",($side_number ? $side_number : "Side"),
              ($time ? " ($time)" : ""),"</h3>\n";
          print ENTRY_NOTABLE
              "<h3>",($side_number ? $side_number : "Side"),
              ($time ? " ($time)" : ""),"</h3>\n";
          print ENTRY_TEX
              "\\Side{$side_number}{$time}\n"
              if $generateTeX;

          my $artist      = $a->{"printArtist"};
          my $title       = $a->{"printTitle"};

          my $TeXartist;
          my $TeXtitle;

          if ( $generateTeX ) {
              my $TeXartist      = $a->{"TeXArtist"};
              my $TeXtitle       = $a->{"TeXTitle"};
          }

          if ($artist ne '') {
              print ENTRY_TABLE "Artist: <b>$artist</b><br>\n";
              print ENTRY_NOTABLE "Artist: <b>$artist</b><br>\n";
              print ENTRY_TEX     "\\SideArtist{$TeXartist}\n"
              if $generateTeX;
          }
          if ($title ne '') {
              print ENTRY_TABLE "Title: <cite>$title</cite><br>\n";
              print ENTRY_NOTABLE "Title: <cite>$title</cite><br>\n";
              print ENTRY_TEX     "\\SideTitle{$TeXtitle}\n"
              if $generateTeX;
          }
          if ($date ne '') {
              print ENTRY_TABLE "Date Acquired: $date<br>\n";
              print ENTRY_NOTABLE "Date Acquired: $date<br>\n";
              print ENTRY_TEX     "\\SideDateAcquired{$date}\n"
              if $generateTeX;
          }
          if (($artist.$title.$date) ne '') {
              print ENTRY_TABLE "<p>";
              print ENTRY_NOTABLE "<p>";
              print ENTRY_TEX "\n"
              if $generateTeX;
          }
          },

          'end SIDE',sub {
          print ENTRY_TEX "\\EndSide\n"
              if $generateTeX;
          },

          'end ITEM',sub {
          print ENTRY_TEX "\\EndItem\n"
              if $generateTeX;
          },

          'begin SONGS',sub {
          print ENTRY_TABLE "<TABLE $table_opts>\n";
          print ENTRY_TEX "\\BeginTrackList\n"
              if $generateTeX;
          },

          'end SONGS',sub {
          print ENTRY_TABLE "</TABLE>\n";
          print ENTRY_TEX "\\EndTrackList\n"
              if $generateTeX;
          },

          'foreach SONGS',sub {
          my ($number,$time,$print,$tex) =
              ($a->[0],$a->[2],$a->[3],$a->[4]);

          $break = ( $time eq '' ) ? '<BR>' : '';
          print ENTRY_TABLE
              "<TR><TD ALIGN=RIGHT>\ $number.\ \ </TD>",
              "<TD ALIGN=LEFT>$print$break</TD>";
          print ENTRY_TABLE
              "<TD ALIGN=RIGHT>\ \ ",
              "$time\ <BR></TD>"
              if $time ne '';
          print ENTRY_TABLE "</TR>\n";

          print ENTRY_NOTABLE "$number. $print";
          print ENTRY_NOTABLE " ($time)" if $time ne '';
          print ENTRY_NOTABLE "<BR>\n";

          print ENTRY_TEX "\\Track{$number}{$tex}{$time}\n"
              if $generateTeX;

          },

          'end REVERSE_ENTRY',sub {
          print ENTRY_TABLE
              "<hr>\n<a href=\"/~dsembr01/music-collection/\">",
              "[Back to Darren's Music Collection]</a>\n",
              "</body></html>\n";
          print ENTRY_NOTABLE
              "<hr>\n<a href=\"/~dsembr01/music-collection/\">",
              "[Back to Darren's Music Collection]</a>\n",
              "</body></html>\n";

          print ENTRY_TEX "\\EndEntry\n"
              if $generateTeX;

          close(ENTRY_TABLE);
          close(ENTRY_NOTABLE);
          close(ENTRY_TEX);
          }

          );
print STDERR "\n" if $counting;

if ( $printdate ne '' ) {
    print LIST_TABLE "</ul>\n";
    print LIST_NOTABLE "</ul>\n";
}
print LIST_TABLE ($nobr_unsorted?"</nobr>\n":""),"</OL>\n";
print LIST_NOTABLE ($nobr_unsorted?"</nobr>\n":""),"</OL>\n";

close(LIST_TABLE);
close(LIST_NOTABLE);
close(LIST_TEX)
    if $generateTeX;

warn "Sorting...\n";

@{$data->[1]{"SORTED_ENTRY"}} = sort {
    lc($a->[0]{"sortArtist"}) cmp lc($b->[0]{"sortArtist"}) or
        lc($a->[0]{"sortTitle"}) cmp lc($b->[0]{"sortTitle"})
} @{$data->[1]{"ENTRY"}};

warn "Writing sorted list ...\n";

open(LIST_TABLE,">sorted-table.html");
open(LIST_NOTABLE,">sorted-notable.html");
open(LIST_TEX,">entries/sorted-entries.tex")
    if $generateTeX;

print LIST_TABLE "<HR><TABLE BORDER=0 WIDTH=\"100%\" CELLSPACING=2>\n";
print LIST_NOTABLE "<UL>\n",($nobr_sorted?"<nobr>\n":"");

$last_sortprintartist = '';
$sortprintartist = '';

$entry = 0;
traverse_tree($data,
          'begin SORTED_ENTRY',sub {
          print STDERR "  ",++$entry," entries...",((-t)?" \r":"\n")
              if $counting;

          my $number   = $a->{"Entry Number"};
          my $alphartist = $a->{'Artist'};
          my $artist   = $a->{"printArtist"};
          my $title    = $a->{"printTitle"};

          my $sortartist = $a->{'sortArtist'};

          my $year     = $a->{"Date Released"};
          if ( $year =~ /(\d{4})/ ) {
              $year = " ($1)";
          } else {
              $year = '';
          }

          my @other_link_types;
          my @official_links;
          my @yahoo_links;
          my $wwwartist = $www->{$alphartist};
          foreach $type (keys %$wwwartist) {
              if ( $type eq 'yahoo' ) {
              push(@yahoo_links,
                   @{$wwwartist->{$type}});
              }
              elsif ( $type eq 'official' ) {
              push(@official_links,
                   @{$wwwartist->{$type}});
              }
              else {
              push(@other_link_types,$type)
                  unless grep {$_ eq $type} @other_link_types;
              }
          }

          $sortprintartist = $a->{'sortPrintArtist'};
          if ( $sortprintartist ne $last_sortprintartist ) {
              if ( $last_sortprintartist ne '' ) {
              print LIST_TABLE "</UL></TD></TR><TR><TD><SPACE TYPE=BLOCK WIDTH=0 HEIGHT=6></TD></TR>\n";
              }
              print LIST_TABLE "<TR VALIGN=TOP><TD ALIGN=RIGHT>";

              if (scalar @yahoo_links) {
              printf LIST_TABLE ("<A HREF=\"%s\">",$yahoo_links[0]);
              }
              print LIST_TABLE "<B>$sortprintartist</B>";
              if (scalar @yahoo_links) {
              print LIST_TABLE "</A>";
              }

              if (scalar @official_links || scalar @other_link_types) {
              print LIST_TABLE "<BR>\n<SMALL>";
              my $space = '';
              foreach $link (@official_links) {
                  print LIST_TABLE $space;
                  printf LIST_TABLE ("(<A HREF=\"%s\">official</A>)",$link);
                  $space = ' ';
              }
              foreach $type (@other_link_types) {
                  foreach $link (@{$wwwartist->{$type}}) {
                  print LIST_TABLE $space;
                  printf LIST_TABLE ("(<A HREF=\"%s\">%s</A>)",$link,$type);
                  $space = ' ';
                  }
              }
              print LIST_TABLE "</SMALL>";
              }
              print LIST_TABLE "</TD><TD><UL>\n";
          }

          $last_sortprintartist = $sortprintartist;

          print LIST_TABLE
              "<LI><A HREF=\"entries/$number-table.html\"><CITE>$title</CITE>$year</A>\n",
              $a->{'printNotes'},"\n";

#          print LIST_TABLE
#              "<li><b>$artist</b>: ",
#              "<a href=\"entries/$number-table.html\">",
#              "<cite>$title</cite>$year</a>\n",
#              $a->{"printNotes"},"\n";

          print LIST_NOTABLE
              "<li><b>$artist</b>: ",
              "<a href=\"entries/$number-notable.html\">",
              "<cite>$title</cite>$year</a>\n",
              $a->{"printNotes"},"\n";
          print LIST_TEX
              "\\input $music_collection_home/entries/$number\n"
              if $generateTeX;
          }
          );
print STDERR "\n" if $counting;

if ( $sortprintartist ne '' ) {
    print LIST_NOTABLE "</UL></TD></TR>\n";
}

# print LIST_TABLE ($nobr_sorted?"</nobr>\n":""),"</UL>\n";
print LIST_TABLE "</TABLE><HR>\n";

print LIST_NOTABLE ($nobr_sorted?"</nobr>\n":""),"</UL>\n";
close(LIST_TABLE);
close(LIST_NOTABLE);
close(LIST_TEX)
    if $generateTeX;

# print_block($data);

###############################################################################

# THE PARSING ENGINE

# This routine reads the data inside a block up to and including the closing
# tag (or end of file for the global block), and synthesizes the data structure
# for that block.  The first argument is a reference to that data structure,
# which is initially empty.  The rest of the arguments are the ``scope'', with
# the first being the type of the current block, the next being the parent
# block's type, and so forth.

sub parse {
    my ($data,@scope) = @_;
    local $scope = $scope[0];
    my $special_block = is_code_ref($line_parse{$scope});

    if ( $special_block ) {
    @$data = ();
    } else {
    @$data = ({},{});
    }

  line:
    while (&readline) {
    chomp; s/^\s+|\s+$//g;        # remove leading and trailing spaces
    next line if $_ eq '';        # ignore blank lines

    # Okay, honey, what kind of line is this, anyway?
    if ( /^\<(.*?)\>/ ) {
        # Hey, boss, it's some kind of <...> line (opening or closing).
        my $tag = $1;        # extract the contents of the tag
        $tag =~ s/^\s+|\s+$//g;    # remove leading and trailing spaces
        # Now is this an opening or closing line?
        if ( $tag =~ /^\/(\S+)/ ) {
        # This is a closing </...> line, which ends the current block.
        my $closing = uc($1);
        if ( not @scope ) {
            # We're inside the global block; we don't need no stinking
            # closing tag.
            error("closing </$closing> without opening <$closing>");
        }
        elsif ( $closing ne $scope ) {
            # We're inside the wrong scope for this closing tag
            error("closing </$closing> without opening <$closing>");
        }
        else {
            return $data;
        }
        }
        elsif ( $tag =~ /^(\S+)/ and not $special_block ) {
        # This is a non-closing <...> line, which begins a sub-block of
        # a type specified by the first word inside the angle brackets.
        my $opening = uc($1); # here's the type
        if (not exists $child{$scope}{$opening}) {
            if (@scope) {
            error "Can't have a <$opening> block ".
                "inside a <$scope> block";
            } else {
            error "Can't have a <$opening> block ".
                "inside the global block";
            }
        }
        my $block = [{},{}];
        parse($block,$opening,@scope);
        push(@{$data->[1]{$opening}},$block);
        }
        else {
        warning("line ignored inside <$scope> block: $_") if $warnings;
        }
    }
    elsif ( /^\#/ and not $no_comments{$scope} ) {
        # the pound sign (#) begins a comment in the file, except when
        # $no_comments{$scope} is turned off.
    }
    elsif ( $special_block ) {
        my $item = &{$line_parse{$scope}};
        push(@$data,$item)
        if (defined $item and not $no_data_tree{$scope});
    }
    elsif ( /:/ ) {
        # a name--value pair inside this block.
        my ($key,$value) = ($`,$');
        $key =~ s/^\s+|\s+$//;
        $value =~ s/^\s+|\s+$//g;
        $data->[0]{$key} = $value;
    }
    else {
        warning("line ignored inside <$scope> block: $_") if $warnings;
    }
    }

    # End of file but forgot to use the appropriate closing tag for this block?
    warning("you forgot to close a <$scope> tag.") if @scope;
    return $data;
}

sub readline {
    my $line;
    if ($eof) {
    return ($_ = undef);
    } else {
    if ($line = <STDIN>) {
        $line_number++;
        return ($_ = $line);
    } else {
        $eof = 1;
        return ($_ = undef);
    }
    }
}

sub error   { die  "error in line $line_number: $_[0]\n";   }
sub warning { warn "warning in line $line_number: $_[0]\n"; }

# END OF THE PARSING ENGINE

###############################################################################

# Syntax:
#   traverse_tree <tree-ref> ( <con
.....
name jeuiet
contact eueru
overall 0
comment
jdjdjk
.....
name sanil
contact [e-mail]
overall 6
comment
vfffggfs
.....
name George
contact flightfm
overall 3
comment
Good, good good!
.....
name aaaa
contact aaaa
overall 3
comment
aaaa
.....
name
contact
overall 0
comment

.....
name Roger Rabbit
contact [e-mail]
overall 1
comment
Just do it ...
.....
name Jara
contact [e-mail]
overall 5
comment

.....
name asdf
contact asdf
overall 2
comment
sdf
.....
name dking
contact [e-mail]
overall 10
comment
help
.....
name Nizar Dahbar
contact [e-mail]
overall 9
comment
I rock.
.....
name Greg Cavey
contact [e-mail]
overall 0
comment

Testing the form
.....
name Greg Cavey
contact [e-mail]
overall 0
comment

Testing the form
.....
name
contact
overall 0
comment

.....
name Steve Rosen
contact [e-mail]
overall 10
comment
Not Bad!
.....
name jj
contact hryheed@ght
overall 0
comment
<jktrhoier>
.....
name Serap Kaya
contact [e-mail]
overall 0
comment

.....
name hans
contact [e-mail]
overall 0
comment
Hello world !!!
.....
name le
contact [e-mail]
overall 0
comment

.....
name mike
contact [e-mail]
overall 4
comment
hi
.....
name brandon doran
contact [e-mail]
overall 10
comment
none
.....
name Kevin Fisher
contact [e-mail]
overall 3
comment
Hello out there
.....
name
contact
overall 0
comment

.....
name julio
contact [e-mail]
overall 10
comment
yo
.....
name j
contact
overall 0
comment

.....
name gfgfg
contact gfgfgf
overall 4
comment

.....
name mwmo
contact omom
overall 2
comment
okokoko±
.....
name Matt
contact mattspage@mmmm
overall 10
comment
some text goes here
.....
name fred
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment


.....
name Sherry bi
contact [e-mail]
overall 9
comment
This is a test
.....
name gasdf
contact dgasdgasd
overall 0
comment

.....
name
contact
overall 0
comment

.....
name German
contact German
overall 9
comment
Good

.....
name cheh lau
contact [e-mail]
overall 8
comment
This is for testing purpose!!
.....
name mike
contact mkdasd
overall 2
comment
jyertjeyju
.....
name jhgpo
contact oppoo
overall 5
comment

.....
name uuu
contact aaa@aaa
overall 2
comment
Text ttt
.....
name Jack Otis Moore
contact www.tellitagan.com
overall 0
comment
The site looks very helpful - but I hesitate
to rate it before more careful study.
.....
name
contact
overall 0
comment

.....
name fasdfsadf
contact asfsafsa
overall 4
comment

.....
name Tee
contact [e-mail]
overall 7
comment
hi there.... it's good!
.....
name Admin
contact [e-mail]
overall 6
comment
I need a program like this!
.....
name mahmoud
contact [e-mail]
overall 9
comment
vcbbcbfghfg
.....
name adam
contact [e-mail]
overall 8
comment
Need some more on writing to files... and a link to a C++ compiler.
.....
name Yves
contact fdfdfd
overall 1
comment
dfdfdfdfdf
.....
name a sdfsdlkj
contact jlkjj.lkj
overall 10
comment
Comments go here.
.....
name ma
contact [e-mail]
overall 0
comment
hello

.....
name harry
contact [e-mail]
overall 5
comment
perfect
.....
name Igor
contact [e-mail]
overall 3
comment
ccdcdcdc
.....
name  p w
contact sa
overall 9
comment
Hello
.....
name Joe Smith
contact [e-mail]
overall 1
comment
Blah blah

.....
name
contact
overall 0
comment
HEllo
Subra

.....
name Joe Smith
contact [e-mail]
overall 1
comment
Blah blah

.....
name barney
contact [e-mail]
overall 5
comment

Testing
.....
name Ilya
contact [e-mail]
overall 10
comment
Very nice!!!
.....
name me
contact meme
overall 0
comment
asdf
.....
name
contact
overall 0
comment

.....
name Jim
contact Jim@test
overall 10
comment
This is a test by Jim!!!

Cool.
.....
name
contact
overall 0
comment

.....
name b
contact akjhk
overall 0
comment
kjhik
.....
name mwageni
contact [e-mail]
overall 0
comment
please send me examples in pascal language and other related materials
and visual basic language programs
.....
name Jason yam
contact jyam
overall 0
comment
ddddd
.....
name a.s,
contact
overall 2
comment
hallo
.....
name rick
contact [e-mail]
overall 9
comment
Like!
.....
name DOMINIC
contact
overall 0
comment


.....
name omar
contact lkklkllk
overall 6
comment
l±k±lk±lk
.....
name
contact
overall 0
comment

.....
name asdf
contact asdfasdf
overall 0
comment
asdfasdf
.....
name Son
contact
overall 0
comment

.....
name choukri
contact [e-mail]
overall 2
comment
gfgfg hhhhh
hghjjjg
.....
name boaz
contact
overall 8
comment

.....
name Jason Newman
contact [e-mail]
overall 6
comment

.....
name test
contact ll
overall 0
comment
llll
.....
name
contact
overall 0
comment


.....
name fred
contact
overall 2
comment

.....
name miller
contact [e-mail]
overall 1
comment
hello world
.....
name helmut
contact [e-mail]
overall 0
comment

.....
name ed Martinez
contact edmartinez
overall 10
comment
lkj;lkj
.....
name Jim Bob Joe
contact [e-mail]
overall 8
comment

.....
name Jimmy Joe Mack
contact [e-mail]
overall 8
comment
I dunno, test it!
.....
name
contact
overall 0
comment

.....
name a
contact a
overall 0
comment
a
.....
name A.V. Ramesh Babu
contact [e-mail]
overall 8
comment
good one
.....
name geri
contact sewa
overall 2
comment
dfewerwerwer
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment


.....
name vetty jeune
contact [e-mail]
overall 2
comment


.....
name pawan
contact [e-mail]
overall 10
comment

.....
name GFDGFDGDF
contact FGFDG
overall 10
comment
FDGFGFDG
.....
name bk
contact rtrtsrtyh
overall 4
comment
zeryhgzerdyh
.....
name aaaaa
contact aaaaaaaaaaaaa
overall 1
comment
11111111111111
.....
name
contact
overall 0
comment
#!/bin/perlrequire "cgi-lib.pl";&ReadParse(*input);if ($input{'done'} eq 'done')
   { print &PrintHeader;
     print '< title>  Thank you for Your Input!< /title> ';
     print '< h1> Thanks for your input.< /h1> ';
     print '< a href="http://blackcat.brynmawr.edu/~nswoboda/prog-html.html">  Go back< /a> ';
     open(FILE, '> >  ./comments.txt');      print FILE < < EOF
name $input{'name'}contact $input{'contact'}overall $input{'overall'}comment
$input{'comment'}.....EOF     }else {    print &PrintHeader;
    print '< title>  Comment < /title> ';    print '< h1>  Comment Form';
    print '< /h1> < br> ';    print < < EOF
< form method="post" action="/cgi-bin/nik/comments.pl"> Your name:
< input name="name"> < p> Your electronic addresses(e-mail, home page etc.)< p>
< input name="contact"> < p> < p> Over all rating: < SELECT NAME="overall">
< OPTION SELECTED>  0
< OPTION>  1 < OPTION>  2 < OPTION>  3 < OPTION>  4 < OPTION>  5 < OPTION>  6 < OPTION>  7
< OPTION>  8 < OPTION>  9 < OPTION>  10 < /SELECT>  < P>
< textarea name="comment" rows=10 cols=60> < /textarea>
< input type="hidden" name="done" value="done">
< hr> < INPUT TYPE="reset" VALUE="Clear">
< input type="submit" value="Submit it!"> < /form> EOF    }

.....
name Jake
contact [e-mail]
overall 10
comment
Ok, Ok, Ok already!
.....
name asdf
contact asdf
overall 0
comment
you suck!
.....
name
contact
overall 0
comment

.....
name reyrey
contact ery
overall 2
comment
ryerye
.....
name hello
contact hello
overall 0
comment
hello
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name ncsa.css
contact ncsa.css
overall 4
comment

.....
name Marcelo Nunes
contact [e-mail]
overall 7
comment

Muito interessante..., s≤ nπo entendi ainda o funcionamento !
.....
name Marcelo Nunes
contact [e-mail]
overall 7
comment

Muito interessante..., s≤ nπo entendi ainda o funcionamento !
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Mr.Q
contact [e-mail]
overall 0
comment
Hello, I want to try CGI
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name adsf
contact adf
overall 4
comment
asdfasdf
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name trfdgf
contact gffggf
overall 0
comment
gfgf
.....
name Ammar
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment


.....
name holby general
contact [e-mail]
overall 10
comment

Oh yes, we are crisps
.....
name miu
contact [e-mail]
overall 1
comment
hello
.....
name Ninja
contact [e-mail]
overall 3
comment
Good
.....
name
contact jfajaf;ja;
overall 2
comment
jfa;jf;j;a
.....
name Thomas
contact [e-mail]
overall 2
comment
hello!
.....
name Gates
contact [e-mail]
overall 3
comment
testing
.....
name ;l;j
contact ;llk;lk;
overall 5
comment
referefdfadfadfgasdf
.....
name Chris
contact [e-mail]
overall 10
comment
Cool
.....
name fgdf
contact dfgdsfg
overall 3
comment
dfgsdg
.....
name
contact
overall 0
comment

.....
name Chris
contact [e-mail]
overall 10
comment
Testing 1, 2, 3!

.....
name
contact
overall 0
comment

.....
name yoi
contact [e-mail]
overall 0
comment
hai,..
.....
name test
contact test
overall 10
comment
cool man!
.....
name
contact
overall 0
comment


.....
name nmtuan
contact [e-mail]
overall 10
comment
It's cool
.....
name vicki
contact vicki@home
overall 6
comment
ummmmm
.....
name Teste
contact teste@teste
overall 10
comment

.....
name Me
contact [e-mail]
overall 8
comment
This is my comment
.....
name
contact
overall 0
comment


.....
name po
contact [e-mail]
overall 0
comment
pppppppppppppppppl
.....
name max
contact bmaxim2moscow.portal.ru
overall 4
comment
This is just a test
.....
name JOe
contact [e-mail]
overall 10
comment
this is cool
.....
name Piddy
contact [e-mail]
overall 10
comment
Line1
Line2
Line3
Line4
Line5
.....
name bob
contact bob@bill
overall 10
comment

.....
name wewe
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name sdfdsf
contact sdfdf
overall 2
comment
sdfasdfads
.....
name hendra
contact [e-mail]
overall 2
comment
sadsfsfdsf
.....
name bob
contact [e-mail]
overall 1
comment
woopie...
i can type

:)
.....
name x
contact x
overall 0
comment
#!/bin/perlrequire "cgi-lib.pl";&ReadParse(*input);if ($input{'done'} eq 'done')
   { print &PrintHeader;
     print '< title>  Thank you for Your Input!< /title> ';
     print '< h1> Thanks for your input.< /h1> ';
     print '< a href="http://blackcat.brynmawr.edu/~nswoboda/prog-html.html">  Go back< /a> ';
     open(FILE, '> >  ./comments.txt');      print FILE < < EOF
name $input{'name'}contact $input{'contact'}overall $input{'overall'}comment
$input{'comment'}.....EOF     }else {    print &PrintHeader;
    print '< title>  Comment < /title> ';    print '< h1>  Comment Form';
    print '< /h1> < br> ';    print < < EOF
< form method="post" action="/cgi-bin/nik/comments.pl"> Your name:
< input name="name"> < p> Your electronic addresses(e-mail, home page etc.)< p>
< input name="contact"> < p> < p> Over all rating: < SELECT NAME="overall">
< OPTION SELECTED>  0
< OPTION>  1 < OPTION>  2 < OPTION>  3 < OPTION>  4 < OPTION>  5 < OPTION>  6 < OPTION>  7
< OPTION>  8 < OPTION>  9 < OPTION>  10 < /SELECT>  < P>
< textarea name="comment" rows=10 cols=60> < /textarea>
< input type="hidden" name="done" value="done">
< hr> < INPUT TYPE="reset" VALUE="Clear">
< input type="submit" value="Submit it!"> < /form> EOF    }
.....
name
contact
overall 5
comment

.....
name
contact
overall 0
comment

.....
name jan
contact [e-mail]
overall 2
comment
erera
.....
name wd
contact [e-mail]
overall 2
comment
fffffff
.....
name rachel
contact [e-mail]
overall 9
comment
excellent.......giggle giggle
.....
name nheng
contact [e-mail]
overall 10
comment

.....
name Tony
contact [e-mail]
overall 7
comment
Not a bad tutorial.
.....
name
contact
overall 0
comment


.....
name Stefen Enns
contact http://www.mysticsoft.net
overall 10
comment
Great page! It was really helpful!
.....
name Joe Chiu
contact [e-mail]
overall 5
comment
Hi, world!!
.....
name qqq
contact asdada
overall 1
comment
dadadad
.....
name
contact
overall 0
comment

.....
name
contact
overall 10
comment
great!
.....
name
contact
overall 0
comment

.....
name thomas aquinas
contact [e-mail]
overall 10
comment
Clear-ee-fied!
.....
name laljalj
contact halj@tjhlith
overall 1
comment
jflkahi
.....
name
contact
overall 0
comment


.....
name
contact
overall 0
comment


.....
name vicki
contact [e-mail]
overall 10
comment
blah

.....
name Nicolas TABANAUD
contact [e-mail]
overall 0
comment
Hello Form!
.....
name aa
contact [e-mail]
overall 0
comment
assssssssssss
.....
name adrian safta
contact [e-mail]
overall 6
comment
;pijuhiojioj
.....
name ss
contact sss
overall 2
comment
sss
.....
name kissa
contact [e-mail]
overall 4
comment
blah blah
blah blah
.....
name biju
contact
overall 0
comment
hello
.....
name
contact
overall 0
comment

.....
name dsaa
contact dsaa
overall 0
comment
saaa
.....
name pablo rios gaspar
contact [e-mail]
overall 0
comment
prueba

.....
name melt
contact [e-mail]
overall 0
comment
i want to know about making a code like
discount 70%

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Bor
contact [e-mail]
overall 10
comment
rferfgergergerter




just


test

.....
name test
contact test@test,org
overall 10
comment
Good Test
.....
name
contact
overall 2
comment

.....
name Ahmad Reza
contact [e-mail]
overall 0
comment

.....
name
contact
overall 0
comment

.....
name ñ╖ñññ⌐ñññ╖
contact ñªñññ╖
overall 1
comment
ñññ⌐ñññªñ╖ñ╖ñññ╜ñññ⌐ñ╖ñ╖ñ╛ñññ╖ñ╛
.....
name BillyG
contact myplanet
overall 10
comment
I'm gonna own the world
.....
name BillyG
contact myplanet
overall 10
comment
I'm gonna own the world
.....
name ol
contact ;j;j;
overall 1
comment

.....
name patr
contact asdfasdfasfd
overall 10
comment

.....
name sjddsf
contact
overall 0
comment

.....
name Jose
contact
overall 4
comment

.....
name Aby Joacob
contact
overall 10
comment

.....
name
contact
overall 0
comment

.....
name Rich Lee
contact ksldjfldsa
overall 2
comment
dsafadsfdsaf
.....
name c
contact c
overall 0
comment
c
.....
name David
contact
overall 0
comment

.....
name
contact
overall 3
comment

.....
name
contact
overall 0
comment

.....
name jim
contact [e-mail]
overall 0
comment

.....
name peter
contact [e-mail]
overall 0
comment

.....
name peter
contact [e-mail]
overall 0
comment
Hello world!!

.....
name wang
contact http://hosokawa1.med.hokudai.ac.jp/wjx/
overall 0
comment
I don't know.
.....
name bruno
contact [e-mail]
overall 6
comment

.....
name Carmen
contact [e-mail]
overall 4
comment
test
.....
name Minh Phuong Tran
contact [e-mail]
overall 2
comment
hahaha.,...
.....
name gator
contact [e-mail]
overall 5
comment
This is a test...
This is only a test...
adsfasdf
asdfasdfa dasf asdf asdf
asdf asdf asdf asdfasdf adasf asdf
.....
name keith
contact [e-mail]
overall 3
comment
kkkkk
.....
name X. Aly
contact gurta.cu.edu
overall 4
comment
I love you


print give me some money
.....
name Chris
contact [e-mail]
overall 8
comment
Overall one of the best pages on CGIs I have seen.  The C examples explain alot to me!
.....
name waldo
contact [e-mail]
overall 4
comment
oyu suck
.....
name h
contact
overall 0
comment

.....
name Brad Dirks
contact [e-mail]
overall 2
comment
Hello
.....
name ava
contact adfv
overall 0
comment
adfv
.....
name vasko
contact [e-mail]
overall 0
comment
Test
.....
name rddg
contact gdfg
overall 2
comment
gdfgdf
.....
name yd
contact dhfg
overall 0
comment
hfdh
.....
name coco
contact
overall 2
comment

sfqsdf
.....
name jay
contact [e-mail]
overall 0
comment

.....
name Efrain
contact [e-mail]
overall 8
comment

.....
name
contact
overall 0
comment


.....
name luc
contact [e-mail]
overall 1
comment

.....
name tzui
contact iiiiiiuzz
overall 1
comment

.....
name alex
contact [e-mail]
overall 0
comment

.....
name Franske
contact ABC
overall 7
comment
Tested by FDC on July 7 1998
.....
name df
contact sdfg
overall 1
comment
sdfgsdg
.....
name asdfdas
contact asdfasdf
overall 3
comment
asdfasdf
.....
name spock
contact [e-mail]
overall 5
comment
fascinating
.....
name
contact
overall 0
comment

.....
name jim
contact
overall 0
comment

.....
name Armen
contact [e-mail]
overall 10
comment
Hello
.....
name Bill
contact Here
overall 2
comment
What
Is
This
All
About
.....
name kathiravan
contact [e-mail]
overall 8
comment

.....
name Fred
contact http://www.homeboy.com
overall 7
comment
Yup
.....
name frank
contact [e-mail]
overall 5
comment
none at this time....
.....
name Webster
contact http://www.bpc.net
overall 10
comment
Just passing through, looking for CGI information.
.....
name hello
contact 123456789
overall 9
comment
what do you want??????/
:-?
.....
name
contact
overall 0
comment

.....
name kim
contact [e-mail]
overall 0
comment

.....
name Jason
contact jyam@hello
overall 5
comment
I am a boy.
.....
name ad
contact a
overall 0
comment

a
.....
name
contact
overall 5
comment


.....
name
contact
overall 0
comment

.....
name
contact
overall 9
comment

.....
name dave
contact [e-mail]
overall 4
comment
The main man
.....
name doug
contact [e-mail]
overall 10
comment
Great tutorial.
.....
name
contact
overall 0
comment

.....
name jan overweel
contact [e-mail]
overall 0
comment
sfsfhgfashgfshgsfsdaghfdashasdgfdsahgf
.....
name Joe Shmo
contact [e-mail]
overall 8
comment
I hope this works
.....
name
contact
overall 0
comment

.....
name FGSF
contact DWEWE
overall 0
comment
FEWERWE
.....
name suzette king
contact yahoo.com
overall 5
comment


.....
name dudu
contact [e-mail]
overall 4
comment
testing
.....
name Nelson Costa
contact [e-mail]
overall 8
comment
Hi----This page is really good.

I have to write a CGI program using DCL and HTML with an
editing feature. I was wondering if you had any complete
samples that I could maybe follow.

If you have any can you please email me with it either at
the address above or at [e-mail]

Thank You
.....
name spede
contact [e-mail]
overall 3
comment
This is a test!
.....
name jhcjfkfhjk
contact [e-mail]
overall 8
comment
sdfdsagfdaertqab346m456nh34n34na4m
.....
name btjanes
contact [e-mail]
overall 10
comment
thanks
.....
name Sivan Mozes
contact http://hills.ccsf.cc.ca.us/~smozes01
overall 8
comment
What am I supposed to say?
.....
name speed
contact [e-mail]
overall 5
comment
without this nothing would happen
.....
name
contact
overall 0
comment

.....
name olivier
contact [e-mail]
overall 4
comment
c'est cool !
TrΦs cool
.....
name biyjy
contact dwdew
overall 1
comment
sdfsd
.....
name sds
contact dsdsd
overall 0
comment
sds
.....
name sds
contact dsdsd
overall 0
comment
sds
.....
name
contact
overall 0
comment

.....
name wlizabeth
contact [e-mail]
overall 3
comment
dfgdhgfhfgj
.....
name joe cat
contact joe@unknown
overall 0
comment
Hello
.....
name df
contact dfhdfh
overall 0
comment
dhf
.....
name Kirk
contact [e-mail]
overall 10
comment
Test
.....
name Jamel
contact [e-mail]
overall 2
comment
This is an example.
I am running perl example !!
.....
name dgffd
contact
overall 0
comment

.....
name ralf
contact
overall 0
comment

dre
.....
name vic
contact [e-mail]
overall 5
comment
Havent read it properly looking for something on embedding gifs
.....
name Jason
contact [e-mail]
overall 8
comment
Thank you for your time.
.....
name Gⁿnter Haider
contact [e-mail]
overall 6
comment

,ajshd
.....
name DONE
contact
overall 0
comment

.....
name Chatree
contact [e-mail]
overall 0
comment
test
.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name Andrew C. Clark
contact [e-mail]
overall 7
comment
tesing-
.....
name fjfg
contact fgjfg
overall 0
comment
fchjfg
.....
name andrea
contact
overall 0
comment
sdad
.....
name phil
contact
overall 3
comment
1234
.....
name gcc
contact id
overall 0
comment
good
.....
name
contact
overall 0
comment

.....
name Diane
contact
overall 5
comment
testing the form
.....
name
contact
overall 0
comment


.....
name
contact
overall 0
comment

.....
name hi
contact [e-mail]
overall 7
comment
hi
.....
name tom
contact [e-mail]
overall 10
comment
Very good, thankyou!

.....
name ker
contact [e-mail]
overall 8
comment

.....
name
contact
overall 0
comment

.....
name Jesse Lim
contact [e-mail]
overall 1
comment
1234
.....
name Nancy Miller
contact [e-mail]
overall 10
comment
This is a test!
.....
name Jamison
contact [e-mail]
overall 10
comment
This is a test of this input system
.....
name
contact
overall 5
comment

.....
name yongbai
contact
overall 0
comment

.....
name
contact
overall 0
comment

.....
name steve
contact
overall 0
comment
just checking something.
.....
name Sylvie
contact [e-mail]
overall 0
comment

.....